(abort "Konnte kein korrektes GeoWorld-Verzeichnis\n finden. Die Installation wird abgebrochen.\n\n Bitte beachten Sie, dass Sie das Verzeichnis\n auswählen, in DER sich die GeoWorld-Schublade befindet.")
)
(set a
(run ("C:lha x %s %s" "DevTool.lha" #destdir)
)
)
(if (<> a 0)
(message "Fehler beim Installieren des Programm-Archivs.")